home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Demos / Substitution 3 < prev    next >
Text File  |  1998-10-26  |  5KB  |  79 lines
  1. ; by Harm Visser
  2. ; to analyze the score double-click high-lighted keywords
  3.  
  4. (def-orchestra 'orchestra 
  5.   all-instruments (i1 i2 i3)
  6. )
  7.  
  8. (init-msec '1/4 150)
  9.  
  10. (make zone1 '(-1000)) 
  11.  
  12. (def-section a
  13.   i1  
  14.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  15.     tonality (activate-tonality (chromatic c 3))
  16.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  17.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  18.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  19.     channel '(1)
  20.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.3 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 8 x) '(0 5 4 3 11 14 10 6)))))
  21.     
  22.   i2  
  23.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  24.     tonality (activate-tonality (chromatic c 5))
  25.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x)  (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  26.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  27.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  28.     channel '(1)
  29.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.3 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 4 x) '(0 5 4 3 11 14 10 6)))))
  30.       
  31.   i3  
  32.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 225 x) '(600 600 600 600 600 600 600 600)))))
  33.     tonality (activate-tonality (chromatic c 6))
  34.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x)  (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  35.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  36.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  37.     channel '(1)
  38.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 4 x) '(0 5 4 3 11 14 10 6)))))
  39. )
  40.       
  41.  
  42. (clone-section a b
  43.   except
  44.    i1  
  45.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  46.     tonality (activate-tonality (chromatic c 2))
  47.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  48.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  49.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  50.     channel '(3)
  51.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  52.     
  53.   i2  
  54.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  55.     tonality (activate-tonality (chromatic c 5))
  56.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  57.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  58.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  59.     channel '(3)
  60.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  61.       
  62.   i3  
  63.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  64.     tonality (activate-tonality (chromatic c 6))
  65.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  66.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  67.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  68.     channel '(3)
  69.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  70. )
  71.       
  72. (def-tempo '150) 
  73.  
  74. (play-file-P "substitution 3 midi"
  75.     all-instruments '(a b)
  76. )
  77.  
  78.  
  79.